home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / examples / scheme / fact < prev    next >
Text File  |  1989-02-17  |  197b  |  12 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (define (factorial n)
  4.     (define (iter product counter)
  5.     (if (> counter n)
  6.         product
  7.         (iter (* counter product)
  8.         (+ counter 1))))
  9.     (iter 1 1))
  10.  
  11. (print (factorial 10))
  12.